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I7A28 --- INTERMITTENT HARD ERROR MAP P/N=8327689 EC=375222 PAGE 01 I7A28 --- INTERMITTENT HARD ERROR MAP P/N=8327689 EC=375222 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A28 ** MAP EC HISTORY ** 002500 3095 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
TESS SS SSLC SSS SCSOCLCS LCS SS SSS SSC CSCSCSC£SCCS SSeSSSCSCSOSSCCC CLC CSC SCS CCCSCSCCS SC cL Ss 2-7 VQ HK KK i oo ok Rok kk i tk kK kkk kk ok tk ick ok ke i kk Ka a oc tc ok fc ak ok 
5 * * VPAVIME TESTS TTS SS SST TTS SS STS STS SS SCS SSS STS CSS STS LS SC SS SCC SC SCC SSCS STS SSC SL eS TS SS | 
6 * KK PREREQUISITES KK * 201 ** oS 
7 * * 202 *x THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * * 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * & 
9 * * 204 ** PARAMETERS TO PASS TO THE TU'tS AND TO PASS TO THE OPERATOR * 
MOE TSLS SSL SS SS SS SSS SL SS CST SS SCS LSC SSS SSS SSCS LOTS LCS SSCS CSCCOS eS LSS SSS eS SS SSS 3 205 ** THE INDICATED MESSAGE (S) « THERE ARE FOUR TABLES USED FOR THIS kK 
11 * eo 206 ** PURPOSE THEY ARE: * & 
12 * a MODIFICATIONS KK XK * 207 ** 2K 
13 * * 208 *x STEP AND RULE ADDRESS TABLE eK 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST x 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
PRR TESTE SS LS SSS SSS SSCS CS SS SS SSS SSSS SSC SSSOC SSCS SSCS SCS SSCL SCS LS SLES SSC CCST £2 SS 211 ** ENTRIES ARE AS FOLLOWES a 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA ** 
18 * ex REA'S INCORPORATED eK * 213 ** B THE STEP NUMBER IN DECIMAL OK 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER * x 
20 * NONE * 215 ** * 
21 * * 216 ** RULE INFORMATION TABLE * * 
POM TESTE SESS SLOSS SS SSS SSS SSS SSS OCCSCS CS SS SSCSSSSS SSS SS OS SS SS SSS CS LCCC’ £22 2 2 217 «x THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE + 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN kK 
24u * KK SPECIAL INSTRUCTIONS KK & * 219 ** UNTQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
25 * * 220 ** INDICATED WITH A X*OOOO* FOR THE RULE EQUATE. * * 
26 * NONE * 221 ** * 
27 * * 222 ** SQUES * 
VASE TESS SSL SS OS SOLS SSS CSS SCS SSS SSS SSS SSS SSS SS SSS SSS SS SSS SOS SS SSS SSCL e SL 2. 2 223 ** A) RULE EQUATE xX'01008 * 
29 * * 224 ** B) ADDRESS OF THE YES LEG RULE * 
30 * eK E. C.j HISTORY 3 3K * 225 ** % 
31 * * 226 ** SFIXT *K 
32 * DATE 17AUG78 DATE 10JAN79 DATE DATE * 227 ** A) RULE EQUATE X'0O101§ * x 
an 2 Ee-C. 755391 E.-C. 375222 E.C. i Come Gg . 338 vis B) ADDRESS OF MESSAGE TO PRINT pee 
CLS SSS SSS SSS SSCS SSS SSS SC SCC SSCS SSS SS STS SSS SS SSS SSCS SS LSS STS STS CCS STS ST St 230 ** $STOP eK 
002500 37 I7A28 START X*2500! START ADDRESS OF ALL 'I' TYPE PROG 231 ** BI RULE EQUATE X'0102' * 
000100 38 @QUES EQU X'*0100°% EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * 
000101 39 @FIXT EQU Xx*0101' EQUATED VALUE FOR MDI STATEMENT 233 ** * 
000102 40 @STOP EQU X¥'0102' EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO * 
000200 41 @GOTO EQU X¥*0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X*'0200! 2 
000201 42 @CALL EQU X*'*0201° EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE 7K 
000300 43 @INPT EQU X¥'*0300° . EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO %* 
000400 44 @QUXX EQU X'*O40O0! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * x 
000500 45 @TUXX EQU Xx'0500! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE a 
000600 46 @NVLD EQU X*O600°8 EQUATED VALUE FOR MDI STATEMENT 241 ** ae 
000000 U7 &E EQU X'O000! EQUATE FOR EQUAL 242 ** S$CALL eK 
000004 48 N EQU X*OO0O4! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE x't0201' * 
000008 49 HI EQU xX¥'0008! EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE e 
00000C 50 NH EQU X'OO00C* EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL *% 
000010 51 LO EQU Xx'0010! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE aK 
000014 52 NL EQU X*OO14! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE i 
000010 bo is pe EQU X'00108 EQUATE FOR LESS THAN 248 ** Ss 
00000C 54 LE EQU X*OOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * 
000008 55 GT EQU x'0008' EQUATE FOR GREATER THAN 250 ** A) RULE aioe X*03008 * & 
000014 56 GE EQU X'*0014° EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE vee tee ey OR HEX) * 
000200 57 ON EQU X'*Q200! EQUATE FOR ON 252 ** C) ADDRESS OF ULE * 
000202 58 OF EQU X'0202! EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * * 
000204 59 MX EQU X'O204' EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA * & 
000000 60 EBC EQU X*0000!5 EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EQU Xx'ooot! EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA * & 
000001 62 XTRNL EQU Xx'OO001' EQUATE FOR EXTERNAL REFERENCE 257 ** & 
000000 63 INTRNL EQU Xx'OQO000! EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX ** 
000000 64 PARM EQU xX*0000! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X*tO4O0O0! * & 
000001 65 DA EQU X*OOOT! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE eK 
000002 66 UA EQU X'O0002' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL % 
000000 67 DUMMY EQU X¥'OO00! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) * & 
001800 69 PID EQU *-X'QODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * & 
000232 70 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * & 
00180C 71 STEPNUM EQU PID+X!OO0OC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
OO180E 72 OPWD1 EQU PID+X'OOOF'® ADDRESS OF OPTION WORD ONE 266 ** * 
001810 73 OPWD2 EQU PID+X'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX aK 
001818 74 TUSTATUS EQU PID+x!0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE xX*0500! %* 
OO181A 75 TUWORK EQU PID+X*OOTA! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE % & 
00189A 76 TUPARM1 EQU PID+X'OQOO9QA'! ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS *& 
00189C 77 TUPARM2 &EOQU PID+X*OO9C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO REC me RESULTS * 
00189E 78 TUPARM3 EQU PIDtxX'OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESU ** 
0018A0 79 TUPARM4Y EQU PID+X'OOAO! ADDRESS OF PARM 4& POINTER 273 ** F) MASK FIELD FOR COMPARE * & 
0018A2 80 TUPARM5S EQU PID+X'OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES * 
OOT8AY 81 TUPARM6 + EQU PIDtX'OOA4Y!E ADDRESS OF PARM 6 POINTER 275 ** H}) PARAMETER TO PASS TO THE TU * & 
0018A6 82 TUPARM7 EQU PID+X!OOA6! ADDRESS OF PARM 7 POINTER 2716 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER a 
0018A8 83 TUPARM8 EQU PID+X'QOOA8! ADDRESS OF PARM 8 POINTER 277 ** ek 
OO18AA 84 TUPARM9 EQU PID+tX'OOAA® ADDRESS OF PARM 9 POINTER 278 ** S$NVLD * 
OO18AC 85 TUPARM10 EQU PID+X'OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600'! %* 
OO18AE 86 TUPARM11 EQU PID+X'OOAE® ADDRESS OF PARM 11 POINTER 281 ** eK 
0018380 87 TUPARM12 EOQU PID+X'OOBO® ADDRESS OF PARM 12 POINTER 282 ** ENTRY ieee TABLE * 
0018B2 88 TUPARM13 EQU PID4+X'OQB2! ADDRESS OF PARM 13 POINTER 283 ** TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ** 
0018B4 89 TUPARM14 EQU PID+xX*'OOB4't ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X*'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ek 
0018B8 91 TUPARM16 EQU PID+X'OOB8*! ADDRESS OF PARM 16 POINTER 286 ** a 3K 
OO18BA 92 TUMSGWTR EQU PID+X'OOBA'! ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT * 
0018BE 93 TUUA EQU PID+X*OOBE® ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE ** 
0018C0 94 TUDA EQU PID+X*0O0OCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** ok 
0018C2 95 TUBUFF EQU PID+X*'00C2'! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX*tQOO00O! * 
0018C4 96 TULAST EQU PID+x*'QOCU! ADDRESS OF LAST ADDRESSABLE WORD 291 ** eK 
0018C6 97 TURESULN at PID+xX'OOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE * 
0018C8 98 RESU EQU PID+X*'OOC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * % 
O0018FC 99 MAPNAME EQU PID+x' OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * & 
001948 100 TUINPT EQU PID+X*'O148! ADDRESS OF $INPT DATA 295 ** * OK 
00196E 101 PARMARA ty PID+X'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A) EQUATE FOR STAPT OF MESSAGE BLOCK * 
0019B8 102 @DCADDTt EQU PID+X*'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE aK ok 
OO19BA 103 @DCADD2 ty PID+X"O1BA* MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE ** 
0019cC4 104 SUPSTAT EQU PID+X*O01C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * * 
0019D0 105 DEVADD EQU PID+x'O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
0019DA 106 DEVADD1 EQU PID+X"'O1DA® ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE i 
OO019E4 107 DEVADD2 EQU PID+X'O1E4G! ADDRESS OF DEVICE ADDRESS TABLE 2 302 **x G) ETC. kK 
O019EE 108 DEVADD3 EQU PID+X'QO1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** * 
0019F8 109 DEVADD4Y EOU PIDtX*O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 304 eR ko KOK IG ii kita iio ak ik kk ik tok a lak kak gk ak koko ak kak ok 
001A02 110 DEVADD5 EQU PID+X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 2% dK oR ok Ro aa kok kk kak kok doko koko gk i tok i gk Rg logo ita gc kok ake ak ak ok 
O001A0C 111 DEVADD6 + EQU PID+#x'OQ20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 es DEVADD7 EU Payee ADDRESS OF DEVICE ADDRESS TABLE 7 
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EQNOO002 EQU 
: De 
DC 
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D 
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EQNO00013 EQu 
D 
DC 
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DC 
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EQNO00030 EQU 
: De 
DC 
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DC 
DC 


EQN00033 EQU 
? De 
DC 


EQNO0035 EQU 
DC 
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DC 
DC 
DC 
EQN00029 EQU 
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EQNO0023 EQU 
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EQNO0011 EQU 


DC 
EQNOO009 EQU 
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EQNOO001 EQU 

EQN00003 EQu 
D 

EQNOO0004 EQU 
: De 

EQN00005 EQU 
De 

EQNOO006 EQU 
De 

EQNOO010 EQU 
De 

EQNO0014 EQU 
: De 

EQN00025 EQU 

EQNO0026 EQU 
: De 

EQNO0027 EQU 
: De 

EQNO0028 EQU 
De 

EQNO0034 EQU 
: De 
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003255 0000 2383 ‘: ifs (#-*) DATA ADDRESS eerie oosa 3498 . DC K (1D00) DATA AREA ADDRESS 
53Re —o Pere ere owes 2500 * CONSTANTS AND DEFINED STORAGE OT aa ERO 
003260 0001 2387 CLDCB DC Xt O00)" RECALIBRATE DCB Cee ye er aeeee ote ee CONeORE Aue 
003262 00000000000000000 ate 5 pc TA (*-*) BO2a1h . bb00 3503 RAY BC R(t) WRITE PARAMETER Sccaeue 
itmc sunt nt a foun tae sanstas, Sosa 4 
003372 0000 $393 eee DC A (t 4) PLAG / PHYSTCAL SECTORS 0331c 0000 3209 PRYSC DC X 100008 CONVERTED PHYSICAL SEC a ere 
003274 0000 2394 DC A feo + HEAD / CYLINDER#'S Ragan a ene WRSID te Pinouet a eant ae (WRT SECTO ) 
003378 EEE 533¢ DC yan RSB ADDRESS Sean es eae WSIDT He TT craas WRITE SECTOR ID TEST DATA 
EPETS 0008 $338 DC "000 BYTE COUNT aes Bon eae SCTST ae de READ SECTOR ID TEST DATA BUFFER 
a 500 * rs A (WRSID) Pees chet lecrenae er eee 003358 00000000000000000 Sete ee we ot eee RAC aREee STATUS BLOCK 
ine ga Tema Bele Sang Ge E8888) [ht ere 
003589 5000 s4Ou Bsr DC A (ey FLAG 7 BRYSICAL SECTORS. poecae eee ae PDATA pe agaae WRITE DIAG WORD 1 DATA PATTERNS 
Bigg Uass an en ol ay He a. 66 ee 
eee COR Sos te 000 Ryne COutr Ean READ SECTOR ID eo PERE ATR See ee ee LOOT LITT es eer ete) yee knees Caer eee eee es 
00328E 3206 aes P ~ DC A (SCTID) SECTOR ID DATA ADDRESS 2525 ‘ SGaRGUTERE 
5413 aad Sere ee eee 5255 4 PURPOSE 
003399 0000 Te aoe DC 100008 NOT U SED ee 2529 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
003996 0000 out De = Xfg0bs NO? USED 2531 * CALLING SEQUENCE 
BBsae Gast Ae ie Sh PERSE ss 338 | pat cnDaw nt pvonmn 
333385 $88 gah EE BRRR ie oe epsom 
3433 ls CYCLE STEAL STATUS DCB ** a: 4% pet . BXS (R6,2) = NORMAL 
ApaoRe ate ioe CAvEE oe al Mor done 2540 aaa 
auaele asut i. = oe fer ae gages u724 goes SoH CwPee weet Sey Soe BEE, 
B035KR 0000 5450 DC Prt NOt USED 00334C 4524 331E 2544 MVA RS ADDR OF WR SEC ID DATA 
0039KC BO1K 5434 DC X'001A! 13 WORDS OF STATUS Oo 3328 rat 0002 pie ane #3) , (RS) BCH ae anee ep Kana Oe 
~— — 2433 : 7 oe Bieensae S TE ep onee red eeneke fee auSere ene. -Unee ane el ce 
ret: aii WRITE DCB EK KK He KK IK OK 2K 2350 : 
0032B0 0028 2436 WRDCB DC X'0028! WRITE DATA ae CNTL WORD 2321 : TO EXECUTE ALL 1/0 COMMANDS. FROM it PANRON DCR: 
ghazee 18h a6 Cae ites carts taal st): PASH RESTHEYE EAPELE  spttchas* BEvodE oskHendhe $6. SREMMETER 
O03B8 SSeR rat DC AIRSB RSB ADDRESS oe 528¢ * SUPVR CALL. 
003384 3390 zu BC i oh BYTE COUNT 2587 : THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
it a tovss-aapieex 30h oo 52: A: BREUATETRERVERESPESERNTES OUTQA<GQHET™™C 1008 
2445 ***** VERIFY DCB HR A A A 2 AE I 5ee1 * - 
0032CO0 90019 aie VRDCB DC X'0019!8 CONTROL WORD $202 : eee ROUTINE HAS THE FOLLOWING ENTRIES: 
0033C4 9000 s449 DC A = HEAD /, CYLINDER#'S Z2¢ - 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
003968 332K suey DC A RSB ) RSB ADDRESS ae 2566 * 2 BAL $SWKEW, R6 WRITE SECTOR ID SKEWED 
0039cC 0000 5485 DC A ae BYTE COUNT BeeG . 3 BAL SWSEC, R6 WRITE SECTOR ID 
i suas * a eal Pee ey Z219 os 4 BAL SDIAG, R6 DIAGNOSTIC 
ne aos po ae eee pie: : 5 BAL XIOCS, 6 CYCLE STEAL STATUS 
983900 2838 gagg Roe oe FAP BRED D2 couggOe ono gE tan ssumn,as sent 
003306 0000 sue 1 DC A = SCAN i, REPEAT COUNT Ze48 > 7 BAL SRECL, R6 RECALIBRATE 
Q0032D8 332A 2462 DC A (RSBA) RSB_ADDRESS 5248 * 8B HAL $RDID, R6 READ SECTOR ID 
Tee amt i; RE aah Sea capes et ae ~ 
0032DE 0000 ence n DC A (*-*) READ DATA ADDRESS 2381 : ar ae — = Be gash 
aa ance WRITE SECTOR ID SKEWED KK 2583 ‘ = ee os - ee 
g53389 0898 ggg froco ae gna GRP O FORD as stcone 358 3 7 
0032E4 0000 2471 DC A faa} HEAD / CYLINDER#'S Hee : 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 
noaoue soe tas We A(RSPA) ae ‘lee 2588 SRERERAAT ATED ESSN ELS SUAWLEECRESE ASRS EAE SALE ET ESS ESTEE EES SEDER EERE S 
0033EC 0004 sa75 DC X "000 BYTE COUNT ere aay 3572 3290 oo a4 SSEEK ao Seo eee SET UP CONTROL BLOCK FOR SVC CALL 
eeeree abe 217 * - aie eee 572 3260 5293 SRECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
ae aes READ SECTOR ID SKEWED ee ae cake ay sten nae 3 253i : F ao 
xt ' bh 
ga33re S888 ch) ie da | ie 7 eae i aE eoe | Tee. Bae SET BBePLSESTOFSVe cam 


I7A28 --- INTERMITTENT HARD ERROR MAP P/N=8327689 EC=375222 PAGE 12 LTAZ8 = S= INTERMITTENT HARD ERROR MAP P/N=8327689 EC=375222 PAGE 12A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003372 4524 3206 2598 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 3276+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
003376 4724 O004 2599 MVWI 4,R7 SETUP BUFFER LENGTH 3277+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
00337A 2BAC 2600 FFN R3 £85) INIT READ SECTOR ID BUFFER 3278+* 
00337C 4020 328E 3206 2601 MVA SC&ID,RSDCB+14 DATA ADDR 3279+* CALLING SEQUENCE 
003382 506E 2602 J XIO 3280+* 
2603 * 3281+%* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
003384 4020 3572 3300 2604 $RDIM MVA RMDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 3282+* 
00338A 4724 0084 2605 MVWI 132,R7 SET BUFFER LENGTH 3283+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
00338E 4524 333A 2606 MVA ID06,R5 SET BUFFER ADDRESS 3284+* --> BAL XIO1 MOD PARM PRELOADED IN ‘IoMop' 
003392 OBBB 2607 MVBI xtppl R3 SFT CLEAR CHARACTERS 3285+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS a ea 
003394 2BAC 2608 FFN R3, (R5) CLEAR THE BUFFER 3286+* --> BAL XTOCS~4, R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
003396 5064 2609 7 J x16 a2al E AND DOES NOT POST INTERRUPT STATUS) 
003398 OBFF 2611 SRD MVBI X'FF',R3 SETRD BUFFER TO ALL FtS 3289+* RETURN CONTROL 
00339A 6D08 32DE 2612 MVW  RDDCB+14,R5 SET UP READ BUFFER ADRS 3290+* 
00339E 6F08 32DC 2613 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 3291+* BX (Rete 22) RETURN TO USER NO ERROR 
0033A2 2BAC 2614 FFN R3 fB5) CLEAR READ BUFFER 3292+* OR B RETURN AND RETRY ON ERROR 
OO33A4 4020 3572 32D0 2615 $RDS MVA Rpf B, ODCB SET UP BLOCK FOR SVC CALL A OOP nee a) pee reer ent ream L ee eed: ec 0) eer 
OO33AA SOSA 7616 J XIO 003460 CB25 3574 3295+xI0 MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
sae speaa aEIOLnEG 2617 a 003464 SOOE 3296+ | J XIO1 CS I/O'tS ARE NOT RETRIED 
DVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0033B2 5056 5619 J : 003466 4020 3574 3298+XIODG MVWI x*'OOOD',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
ee ee an re 2620 : 00346C 5OOA 3299+ | J XIO1 GO TO CS OPS 
WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL + 
0033BA 5052 2622 J X¥Io ’ OO346E 4CAA 3301+ TBIR R4Y,CE RESET CS STATUS INTER ERROR INDICAT. 
5623 * 003470 4C68 3302+ TBTS RU,CS SET 'CYCLE STEAL STATUS* IN PROGRESS 
0033BC 4020 3572 32F0 2624 $RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003472 4020 3572 32A0 3303+XIOCS NVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0033C2 OBBB 3625 MVBI X'BB!)R3 SET BUFFER TO BS 003478 4020 3574 OOOF 3304+ MVWI X'000F", TOMOD SET CYCLE STEAL MODIFIER 
0033C4 4524 3206 2626 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS O0347E 4C28 3305+ TBT seh CS) S_CS IN PROGRESS, ERROR CONDITION 
0033C8 4724 0004 2627 MVWI 4_R7 SETUP BUFFER LENGTH 003480 1213 3306+ JON To2 * YES, BYPASS SAVING I/O ADRS 
0033CcC 2BAC 2628 FFN R3 4R5) INIT READ SECTOR ID BUFFER 003482 6E0OD 3204 3307+XIO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
0033CE 4020 32FE 3206 2629 MVA sch D, RKDCB+14 DATA ADDR 003486 4324 320E 3308+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
0033D4 5045 2630 J XIO 00348A 6D08 3572 3309+ MVW ITODCB,R5 * AND THE FROM ADRS, ALONG WITH 
3631 * 00348E OFIA 3310+ MVBI 26,R7 * THE NUMBER OF MOVES 
0033D6 4020 3572 32E0 2632 $WKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003490 2D64 3311+ MVFN SR) fh?) MOVE 1 STATUS WORD AND ADJUST 
0033DC 4020 32EE 331E 2633 MVA WRSID,WKDCB+14 DATA ADDR 003492 OBFF 3312+ MVBI 55, CLEAR CYCLE STATUS BUFFER 
0033E2 5SO0O3E 2634 J XIO 003494 4524 32T1E 3313+ MVA CSBOF,RS * TO ALL ONES * 
0033E4 4020 3572 3270 3232 3 OO349R OBAC 3348t ore sortie * 
E WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL + 
OO33EA 4020 327E 331E 3637 MVA WRSID,WSDCB+14 DATA ADDR 00349C 4020 3200 0708 3316+ MVWI $76408¢, SIOIN OVERLAY OLD CONDITION | CODES 
0033F0 5037 2638 : J XIO OO34A2 CB25 3202 Eta MVWZ2 S$ISB,R3 ZERO OUT OLD ISB VAL 
0033F2 4020 3572 3250 2640 $DIAG MVA  DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL O0O34A6 4CAI 3319+ TBTR (R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
0033F8 5033 5641 J XtTo. ” 0034A8 4CA3 3320+XI02 TBTR {ra TH} CLEAR INTERRUPT RECEIVED CNTL BIT 
5642 * OO34AA 4724 356E 3321+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
0033FA 60D 3204 2643 SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED QO34AE 4CA6 3322+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
OO0O33FE OBFF 2644 MVBI 255 _R CLEAR CYCLE STATUS BUFFER 0034BO0 4C62 3323+ TBTS R4, XI) SET EXPECTED INTR CONTROL BIT 
99.3400 4o2k 321E 2645 HVA cSBUF,RS TO ALL ONES * 0034B2 600A 3324+ SVC TART CALL SUPVR FOR I/O COMMAND 
003406 2BAC 2647 FFN RI, (R ) * O034B4 4CAT 3326+ TBTR (Ree 7 NI) IS AN INTR EXPECTED 
003408 4524 3205 2648 MVA  DCBUF,RS CLEAR DCB BUFFER TO ALL ONES 0034B6 6ACO 0002 3327+ N R6, 2) * NO, RETURN TO USER 
00340C OF10 2649 MVBI 16,R7 * 3328+* 
OO340E 2BAC 3650 FFN R3 4R5) * 3329+ THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
003410 4020 3200 0708 2651 MVWI x*6708',$IOIN OVERLAY OLD CONDITION CODES 3330+* 
003416 CB25 3202 2652 MVWZ SISB,R3 ZERO OUT OLD ISB VALUE OO34BA 4524 0000 3331+ MVWI SET UP WORK REG FOR 'LOST INTR* 
00341A 4CA3 26 53 TBTR (R4,fN CLEAR INTERRUPT RECEIVED CNTL BIT OO34BE 4CA3 3332+XI08 TBTR (hes IN) HAS INTERRUPT BEEN RECEIVED 
00341C 4CA1 2654 TBTR (R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 0034C0 1239 3333+ JON * YES, CHECK IF ALL WAS SATISFACTORY 
OO341E 4Ccéb2 2655 TBTS R4,XT SET EXPECTED INTR CONTROL BIT 0034C2 6002 3334+ SVC IDLE. ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003420 4724 356E 2656 MVA OBLK,R&7 SET UP CONTROL BLK FOR SUPR 3335+* SUPVR WILL RETURN HERE 
003424 c0Q20 3575 2657 MVB IOMOD+1,R0 GET IDCB FUNC/MODIFIER 0034C4 6002 3336+ SVC IDLE ALLOW ANOTHER ee A CHANCE TO RON 
003428 402D 3574 OOFO 2658 RBTWIL X'OOFO', IOMOD REMOVE FUNCTION FROM '*1LOMO 3337+* SUPVR WILL RETURN 
00342R 3022 2659 SRL 4, RO RIGHT JUSTIFY FUNCTION ors IN RO 0034C6 7DA1 0001 3338+ AWI 1,R5 ADVANCE TIME OUT COUNT 
003430 F005 2660 CBI 5,R0 IDCB FUNCTION = 5? OO34CA 18F9 3339+ JINZ xfo8 BCH IF TIME OUT NOT REACHED 
003432 1003 2661 JE SURTI YES - ISSUE 'SVC WRITI1! O0O34CC 4C61 3340+ TBTS fete: ER) SET ON ERROR CONTROL BIT 
003434 6010 2662 SVC WRITO ISSUE WRITE DPC "4x! OP OO34CE 68D2 0000 3341+ B 6{ * ERR ‘NO INTERRUPT! 
003436 6802 34BA 2663 B XIO8—-4 GO WAIT FOR THE INTERRUPT Z3ZUZ4 KKK KK KK KKK K KKK WE A HE He He HM 2 Ee a HK HK I i a i ee ek a oe kk ok ak kK KO BP EBT 6x 
00343A 6011 2664 $WRT1 SVC WRIT1 ISSUE WRITE DPC 'SX* OP 3344+* 
00343C 6802 34BA 2665 7 B XIO8-4 GO WAIT FOR THE INTERRUPT Beets SUBROUTINE 
003440 4020 3572 32B0 2667 $DGWR MVA WRDCB, LODCB SET UP CONTROL BLK FOR SVC CALL 3347+* I/O EXECUTE ERROR HANDLING ROUTINE 
003446 6802 3466 2668 B XIODG ISSUE START CS DIAG CMD 3348+* 
2669 * 33494* PURPOSE 
OO344A 4020 3572 32D0 2670 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 3350+* 
003450 6F08 32DC 2671 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 33514* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003454 6D08 32DE 2672 MVW RDDCB+14,R5 ADDR OF READ BUFFER 3352+4+* PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
003458 OBFF 2673 MVBI X'FFt_R3 CLEAR Ft 3353+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
00345A 2BAC 2674 FFN 3 4R5) * 3354+* 
00345C 6802 3466 2675 B. XI6ODG ISSUE START CS DIAG CMD 3355+* CALLING SEQUENCE 
2677 COPY TVAXEOQ OOMART78 3356+* 
2678 pERINT OFF 3357+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
3213. aE ERS CEE Er oa S OES R CC ESIC TEE IAEA IE 29 JUL O€ A acco RETURN CONTROL 
3244+ + 
geil. SUB-ROUTINE ban B (R6) * RETURN TO USERS ERROR HANDLER 
+ 
324 7+* EXECUTE INPUT AND OUTPUT COMMANDS Soe eee ne Rea en eK T eee te mee eee Senet OTe e ee Tee AE SERS Ee Rees 
3248+* + 
3249+* PURPOSE 3365+* CC O= DEVICE NOT ATTACHED 
3250+* 3366+* FOR 1= DEVICE BUSY 
3251+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 3367+* T/0 2= DEVICE BUSY AFTER RESET 
3252+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 3368+* 3= COMMAND REJECT 
3953+ 3369+* Y= INTERVENTION RE UIRED 
3254+% 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 3370+* 5= INTERFACE DATA CHECK 
3255+* THE I/O COMMAND. 3371+* 6= CONTROLLER BUSY 
3256+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 3372+* 7= I/O COMMAND EXCEPTED 
3257+* ISSUED BY THIS SUBROUTINE. 3373+* 
3258+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 0034D2 T7O0O6E 3374+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
3259+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 0034D4 336A 3375+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
3260+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 0034D6 C328 3200 3376+ MVB R3, S101 * PUT IN LOG OUT AREA 
3261+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, OO34DA 68D2 0000 3377+ B (Rey eo RETURN TO USER ERROR HANDLER 
3262+* MYSTERY INTERRUPT aed CONTROL BIT IS SET. 3379 KKK KK KKK KKK K * He He He ee ee a He ac 2 ee Ra He he he i A ae ak a kok ak tok ok ek 1 LA PRT 6% * 
3263+* 5. MOVES THE ADDRESS HE I/O CONTROL BLOCK IN R7, SET THE 3380+* IL 
3264+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVE STARTS. 3381+* SUB-ROUTINE IL 
3265+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 3382+* IL 
3266+* STARTS TO DETERMINE A LOST INTERRUPT. 3383+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL! IL 
3267+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 3384+* IL 
3268+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 3385+* PURPOSE IL 
3269+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 3386+* IL 
3270+ . CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 33874+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
3271+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 3388+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
3272+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 3389+* EXPECTED CODE. IL 
3273+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 3390+* IL 
3274+* ISSUED BY THIS SUBROUTINE. 3391+* CALLING SEQUENCE IL 
3275+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 3392+* IL 
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oii pasa veena anes EDOE Mie P/N=8327689 EC=375222 Sew 45 I7A28 --- INTERMITTENT HARD ERROR MAP P/N=8327689 EC=375222 PAGE 13A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT SEE SOCeCe ote teHEN COR Eire. mee OREN aT e 
3393+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL BOsesE. “anes See ae ited ADRS OF EAST SUC@"CREL 
+ rs ees 
3395+4 Sine GRecCONRaOT IL 003578 0000 3911+IORSP DC A (x-* SECOND WORD OF LAST IDCB 
+ 
133735 Bee. acti Beanies teil Naa uDee i 3513+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+ 
33994 2 EO IGG IC IGS gi IGOR iia i lok dak iaiak aiokattokey 7 eee ey eee ee ne TOK) Pe anenet ar Or Tendon pee 
3400+* IL 00357E 34DE 3517+ DC A(INTER INTERRUPT ERROR ADRS 
3402s + FOR = PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT TL One 2ee. «0003 SEE a rere iat a heer ere mmmrmn: Tet ue ey Ties a4 a ee 2k 2k 
3403+* INTR = EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL Seo: a 
3404+% = DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 33594 SUBROUTINE 
rte = ATTENTION 7 PROGRAM CNTL INTR a= THY STG ADRS tT 3523+* 
+ = ad 
3406+% pee ee ae Pa PH OREE Ree ae 352u+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
340845 7= ATTENTION 7 DEVICE END INTR 7= I-FACE DATA IL 33564 PURPOSE 
+ 
3527+% 
OO34DE T706E 3410+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 3528+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
0034E0 336A 3411+ SRL a ae POSITION INDICATORS IN R3 iL 3529+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
0034 E2 4424 31F8 3412+ MVA OPTIN1, RY SET UP BASE ADRS IL 3530+ TO INTERRUPT 
0034E6 4C28 3413+ TBT (Ra c§) TS CS IN PROG®ESS IL 3531+* 
OO34E8 1006 3414+ JOFF NTES * NO IL 3532+* CALLING SEQUENCE 
aRaHEA SCH a aie: HBTS a8, Ce UHH ON CYCLE STEAL INTER ENEOR ee 
EC D Cc + = : 
303485 e528 320¢ 3017s av Bae DEVGS pore eae cou cone i 3534+% THIS SUBROUTINE HAS THF FOLLOWING ENTRIES: 
F + 3536+* --> BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
OO34F6 4c24 3419+INTES TBT RU,XE TEST EXPECTED ATTEN / ERROR IND IL = 
Q034F6 4c 24 ai 38 Tt (BA Ax ) se ene a arlene a 3537+* > BAL $CONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
OO34FA F304 3421+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 33394% RETURN CONTROL 
0034FC 1006 3422+ JE thtR1 * YES, BCH TO END INTR SEQUENCE IL 35504% 
00 30PE ach ce tae {Rae ER) SET EPROR ON I/O COMMAND CNTL BIT re 35414+* BXS (R602) RETURN TO USER VIA REG 6 IF OKAY 
3035¢4 THE TRROR INTEPRUBT USES THE SAME tH 3542+% OR B R6} * IF THE DEVICE COULD NOT BE CONNECTED 
+* 
BUD Be He HK eK fe eK I KK RC aK Ko oo aK eK ok He HM He I eK KK KKK KK KKK TL APRTIGELL 003582 OF06 ACU eCIayER CR ee oe eee anne 
345008 SOUBROUTINE rE 003584 0OB00 3546+ MVBI 0,R3 * AND THE DATA TO USE 
eee 7 003586 42k 3206 3547+ HVA DEV1, RS * ALONG WITH THE ADRS TO USE 
43c+% OKAY INTERRUPT RUNS ON INTERRUPT LEVEL ‘$SINTL* ay 00358C CB25 31FC 3549+ MVWZ bans CLEAR OLD CONTROLS FOR NEW ROUTINE 
ier arnsece + 003590 4724 357A 3550+ MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
3435+4+%* iL 003594 6014 ae 3551+ SVC CICB * CONNECT IT TO THIS DEVICE 
34 364% TO CHECK THE INTERRUPT AND CONTINUE THF TEST TL 3 AD 3224i« BN (R6) ERROR ‘RETURN 10 USER 
heron CALLING SEQUENCE a 00359A 8828 323E 3572 3554+$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
Shenae Q rE 0035A0 4724 356E 3555+ MVA TOBLK RT SET R7 TO CONTROL BLOCK TO PREPARE 
34G0+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL ooseEr anos Se 0708 3228 Sane eT aa e AND GEEER Ob foe VELUS aa 
34414+% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 0035AE 6EOD 3204 3558+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
34424+% AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 003582 €00C 35504 Svc. PREP * AND CALL OW SUPVR 
nee COMMON SECTION IS HANDLED HERE. IL 0035B4 5601 3560+ BXS (R6,2) RETURN TO USER 
3444+ IL 356242 AAI IG AO OG II IE i lokaok tote 4ociiok 06 APR 7 6 * 
34u5+s RETURN CONTROL IL 35654% 
+ 
344 74% SVC EXIT RETURN TO USER VIA SUPVR IL SP ee ue SUBROUTINE 
+ 
BY Ot HK HH HH RH He He eH eK a KC a ke Rk 2k 2 2k 2c fc ae 2 oe akc ak fe ok ic keke kok ok ake oe ik took ak ok T TL ee DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
003502 706E 3450+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 TL 3568+* PURPOSE 
TEL a eae the BNE. Abas ne na tt te 
+ I * 
aaso0a ces iaggoem Bes 2g BEF, ccTHWPREUER RECETYED it SIPS BESCOMNPCE TEE. BUTEREORS,CQRTPOL BLOCK "0, EEE SDPEEGE 22 
99320C 4C28 g4 aut TET BES E°ves> Ben’ ReOuED UPDATE | 3572+% BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
003510 C328 3201 3456+ MVB R3,$IOIN+1 SAVE INTERRUPTING CC CODE IL 35704* CALLING SEQUENCE 
003514 6FOD 3202 34574 aug BVH RT, SISB SAVE INTR STATUS AND DEV ADRS IL 324ate 
+ e 
SNeEpee BOO. See Saenuie EVE COURRO Ee DOD a 3576+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003518 3321 aoe SEL aeRS poet ana LEVEL AND PUT rE 3578+* --> B SERRS SET 'NG' BIT AND CONVERT DATA TO LOG 
00301A 0501 lose anole AB irks Rs Pes ae eoannee Tai ere: 7 3579+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
003520 1002 3463+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 3581+ RETURN CONTROL 
003522 4C66 3464+ TBTS (R4,SLE) SET INTR LEVEL ERROR CONTROL BIT IL 32894% 
pete Mbtcewas eae (ieret vy gE SGoaT¢eepeaBN CHM Brn EE ute 8 TUT RETURY TO, "DE 
CA + 
O3353n 200 tea: Hehe {aa «Oe SEf avoreat dure" COuEROL BIT TE gots faa ade ified eek 
00352A 4C : R 35 86 + A ICS GIO I AGO IGG IOC GI GIGI IG IOI oI aia ig ak 
00 352C P38 ao eur nee prtehnion INTERRUPT? eT 0035B6 4020 1818 8000 3587+$ERR$ MVWI X*'8000',TUSTATUS SET ON 'NO GOOD" STATUS BIT 
E 0035BC 4724 3786 3588+ MVA HEBLK,R7 GET ADRS OF CONTROL BLOCK 
003530 4C6C 3471+ TBTS 1a NG) a UNEXPECTED INTERRUPT TL 0035c0 601A 3589+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
003532 6006 3472+INTRX SVC xf T $HIS LEVEL VIA SUPVR TO PGM IL 0035C2 4020 188EF 4040 3590+ MVWI X*4UQUO', TUWORK+116 
Sh ie ea Kee Se AREAS HRS ODER RES EEGE EER NUAW Es 0404 Ce oo 0a ae ee 0035¢8 4050 1890 4040 35914 MVWI X*4OU0' “TUWORK+118 
3475+* 
3476+ THIS IS THE CONTINUATION OF EXECUTE 1/0 AFTER THE INTERRUPT RUGeOr. Onon ee SeOs Span GYoe heat) seem en 120 
3477+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 0035D6 4324 181A 3594+ MVA TOWORK R3 SET UP BUFFER STORAGE 
3478+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. O035DA 6BOD 377E 38954 MVW  oR3_BUPDT 
340008 0035DE 4124 365A 3596+ MVA  Lifz1,R1 
003534 4cAK 34814+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED pose on oeua aeoa. Oyo etce 
003536 6ACO 0002 3482+ BN R6, 2) x YES, FXIT THIS ROUTINE 0035h— B24 3599+NVBUF MVFN (3), (R1) 
00353A 4CA8 3483+ TBTR (R4,CS) WAS AUTO CS IN PROGRESS 0035E8 OFOY 3600+ MVBI i ay! 
00353C 1006 3484+ JOFF Toev * NO, CONTINUE CHECKING 0035FA OA4LO 3601+ MVBI xfuor R2 
00353E 4C2A 3485+ TPT (Ra CE) ts cS IN AN ERR CONDITION 0035EC C258 3602+ MVB  R2,(R4)+ 
003540 1002 34864 JOFF xXIOCO # NO, BC Boece. pee 3e0 54 scr. Nene be 
003542 68D2 0000 3487+ B R6) * cs ERRO 0035F0 OFO8 3604+ MVBI 8.R6 ‘ 
003546 4C69 3488+XIOCO TBTS (R4,CSA) TURN ON Ros STATS AVAIL FLAG 0038F2 7921 002C 36054 AWI 44.21 
003548 $£=»5601 3489+ BXS Rone, GO TO USER 0035F6 BDF7 3606+ IcT MVBUF RS 
OO354A uC?1 3490+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 0035F8 4020 1802 F1FO 3607+ MVWI PrpHShia PID+2 
00354C 100D es JOFF XIOCX * NO, EXIT THIS ROUTINE 0035FE 4020 19B8 3784 3608+ MVA FAKETU aDCADD 1 
00354ER C520 3201 34934 MVB  $IOIN#1,K5 GET LAST INTR CC CODE BD IeGk: “Ose Aecuoaead aoa. nue DC2PT,ODCADD2 
neoeen Pe 105. ce T1OR0 ey oie 903610 4324 31FE 3611+ MVA STUID)R a SET UP BUFFER STORAGE 
003524 1993 ee an ee Te neee pce 003614 6F13 18BA 3012+ BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
003558 68D1 0000 3497+ BNE (ke) * * NO, BCH TO ERROP HANDLER 003618 36144+$CONX EOQU' * 
00355C C520 3202 3498+XTIOCQ MVB IS se GET {ast ISB DATA BYTE AND IF CS 003618 C720 19D0 3615+ aE DEVADD,R7 GET DEVICE ADDRESS FROM NDI 
503300 enoo eae Senet en yee maton ee GO AND GET IT 00361C 6013 3616+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
003568 CB25 31FC 32072xr0Cx HVWZ GERN3-R3 CLEAR OUT OPTION 3 CNTL BITS O0361E 6812 3240 ae ave B TURTN* RETURN TO HDI SUPERVISOR 
ae pe $283t, BES 18647 noe me ae eet 983632 B88 seggrbrom™ pe yngeay Oper Read E*§ ERE 
+ LINE LENGTH = 8 CHAR 
ae ee g3638 gezgtoctezpspoes§ aegje BES saa 
2 + LINE LENGTH = 4O CHAR 
ne oee ue eeog en We MRTOER) PERORC EGO HE Rone” 003630 E3E4C9C4ULOCID6CID 3623+ DC CAnytD TOIN ISB INST SECT ID DATA CSCC ! 
003572 0000 3508+I0DCB DC A (#-*) DCB ADRS OR LEVEL & INTR 003658 0028 s02n De BOC) PINE LENGTH OE RAR 
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HARD ERROR MAP 
STMT SOURCE STATEMENT 


P/N=8327689 EC=375222 PAGE 14 
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+LINE1 DC cr ' 
+ DC A (0040) LINE LENGTH = 4O CHAR 
+ DC C*°CNTL DCB1 DCB2 DCB3 DCB4 CHAD BYCT ADRS ! 
+ DC A (0040) LINE LENGTH = 4O CHAR 
+LINE2 DC Cc! ' 
+ DC A (0040) LINE LENGTH = 4O CHAR 
+ DC C'*CS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
+ DC A (0040) LINE LENGTH = 40 CHAR 
+LINE3 DC ct 
+ DC A (0040) LINE LENGTH = 4O CHAR 
+ DC C'CS-8 CS-9 CS-A CS-B CS-C 
+ DC A (0040) LINE LENGTH = 40 CHAR 
+LINEY DC ct 
+ 
+BUFPT DC A(#=*) 
+DC2PT DC A (BEGIN) 
+PIXTU DC X*0101! 
+PAKETU DC xX*0101° 
+PIDHSG10 EQU  X'FIFO! 
+BITO080 EQU xX'0080" 
+ 
_ DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+HEBLK DC A 58) NUMBER OF BYTES TO CONVERT 
+ DC A(ST ID) FROM ADRS 
+ DC A (TUWORK) AND THE TO ADRS 

COPY T7A10 23JAN78 


A10 


+~l 


TEST UNIT 
ERROR HALT CODE/DIAG SENSE BYTE CHECK 
PURPOSE 


TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 
TO THE TU RESULTS BUFFER (TO&RESOL) - 


MDI=$TUXX,T7A10,01,0708, EQ 
TURESUL BIT(S) 0-7 


ee | 


° Br bo. 5.555% eee STATUS aay BYTE 
e NO 23: res eae SINGLE SHOT BYTE 1 (5-HURSLEY 
= val ee - SINGLE SHOT BYTE 2 (6-HURSLEY 
- 32°39 see mae SINGLE SHOT BYTE 3 (7-HURSLEY 
. BB A55: 6 siewe0 s - NOT USED 
° DOO - oes-6 sie ee MULTISAMPLE BYTE 1 (5-HURSLEY 
° 64-71 caccceus MULTISAMPLE BYTE 2 (6-HURSLEY 
. T2719. wees ae oie MULTISAMPLE BYTE 3 (7-HURSLEY 
. BO=07 jes ord oes WRAP BYTE 
CALLING SEQUENCE 
MVW TUWORK, TURESUL MOVE ERROR HALT CODE & STATUS BYTES 
MVD TUWORK+6 , TURESUL+2 SINGLE SHOT BYTES 1, 2, AND 3 
MVD TUWORK+10, TURESUL+6 MULTISAMPLE BYTES 1, 2, AND 3 
AND WRAP BYTE 
RETURN CONTROL 
B TURTN* RETURN TO MDI SUPERVISOR 
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7A10 MVW R7,TURTN SAVE RETURN ADDRESS 
MVWI X'*7A10°, $TUID SAVE TU ID FOR DISPLAY 
MVA  OPTN1,R4 SET UP POINTER ADRS IN RG 
BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT 1/0 BL 
: DC A (SERRS) ERROR ADRS FOR INVALID PREP 
MVD  TUWORK+2,TURESUL+10 MOVE ERROR WORDS 4,5 
HVB TUWORK+13,TURESUL+5 MOVE WRAP CHECK RESULTS 
+ B $SCONX RETURN TO MDI CONTROLLER 
KR IK HE KK 2 2 2 i ie 2K a ok 2K KK 2 2 oC ae 2 2 2K 2 fe aK 2K ake he a af 2c 2h af a oe 2 ac oe Xe ake ek ae ake 2k fe fe ie ae age a ae ok ae ok 
END 
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3545 
3614 
3587 
2251 
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3639 
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2290 
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3640 
105 
2219 
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2376 
67 
2073 
2196 
2276 
3642 
2130 
2154 
2092 
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2116 
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2100 


INTERMITTENT HARD ERROR MAP 
CROSS-REFERENCE LISTING 


NAME 
$CONC 
SCONX 
SERRS 
SINTL 
SIOIN 
SISB 
SLE 
STUID 
$URT1 
@DCADD1 
@DCADD2 
@FIXT 


@TUXX 


BEGIN 
BITOO080 
BUFPT 
CE 
CICB 
CLDCB 
CS 

CSA 
CSBUF 
CSDCB 
DCBUF 
DC 2PT 
DEVADD 
DEV1 
DEV4 
DGDCB 
DUMMY 
ENTPT 
ER 
EXIT 
FAKETU 
FOOO45 
FOO0046 
FOO0047 


FO0048 
FO00049 
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ADDRESS. 
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HEX 
HEX 
HEX 
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REFERENCES 
LOCATION (00003582) 
LOCATION (00003618) 
LOCATION (00003586) 
LOCATION (0000323E) 


X LOCATION (00003200 
3376 3456 3 3 
HEX 
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LOCATION (00003202) 
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LOCATION (0000343A) 


LOCATION (000019B8) 


LOCATION (000019BA) 
eee oe a aae 
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62 1065 1116 1 
85 1188 1215 1 
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43 1458 1473 ~=#1 
66 1581 1584 1 
01 1740 1743 =# 1 
36 1839 1878 1 
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HEX VALUE (00000080) 
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HEX VALUE (0000002A) 
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OLUTE. HEX VALUE (00000014) 


LOCATION (00003260) 


HEX VALUF (00090028) 
3413 3454 3483 
HEX VALUE (00000029) 
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LOCATION (0000321E) 
LOCATION (000032A0) 
LOCATION (0000320E) 
LOCATION (00003780) 


LOCATION (000019D0) 
515 1 


LOCATION (00003206) 
LOCATION (0000320C) 
LOCATION (00003250) 


HEX VALUE (00000000) 
HEX LOCATION (00003095) IN 


HEX VALUE (00000021) 
3340 3423 3465 3490 
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HEX LOCATION (00003192) IN 
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LOCATION (00003128) 
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LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 
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LENGTH (1) 
LENGTH (2) 
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) LENGTH (1) 


) LENGTH (2) 
3 LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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2104 
2138 
2096 


2124 
3648 
2296 
2272 
2517 
2198 
3515 
3410 
3419 
3423 
3450 
3472 
3453 
3458 
3466 
3506 
3508 


3509 
37 
3625 
2218 
2195 
3599 
2207 
2202 
825 
837 
849 
861 
873 
885 
897 
909 
921 
933 
936 
948 
951 
963 
975 
987 
939 
1002 
1005 
1008 
1011 
1014 
1026 
1029 
1041 
1044 


NAME 


F00058 
FO0059 
F00060 


F00063 
HEBLK 
HTOE 
IDLE 
IDO00 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A28 
LINE1 
LSTIO 
MI 
MVBUF 
NG 
NI 
N00001 
NO0002 
N00003 
NOO0004 
NO00005 
NOO0006 
NO00007 
N00008 
No0009 
N00010 
nN00011 
n00012 
N00013 
nN00014 
NO00015 
N00016 
N00017 
NO00018 
N00019 
nNd00020 
N00021 
NO0022 
N00023 
N00024 
NOO0025 
N00026 
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INTERMITTENT HARD ERROR MAP P/N=8327689 EC=375222 
CROSS~REFERENCE LISTING COPYRIGHT 
ATTRIBUTES AND REFERENCES 

1009 1012 1045 1264 1444 1549 1798 1993 2050 
2 DRESS. HEX LOCATION (000030F2) IN CSECT(I7A28 ) LENGTH (1) 
ADBRESS~ HEX LOCATION (000031A0) IN CSECT(I7A28 ) LENGTH (1) 
1684 1801 1804 2023 
SARDFEEE ng t™E ERMAN CONRROPTL EM SgBTTCHZAGS 4g] TERETE 
1840 1906 1912 

ADDRESS. HEX LOCATION(0000314A) IN CSECT(I7A28 ) LENGTH(1) 
‘ADDRESS. “HEX LOCATION (00003786) IN CSECT(I7A28 ) LENGTH (2) 
SR BSOLUTE. HEX VALUE (QOOOO0TA) 

SABSOLUTE, HEX VALUE (00000002) 

ADDRESS. HEX LOCATION(0000333A) IN CSECT(I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (0000357A) IN CSECT(I7A28 ) LENGTH(2) 
32 RDRESS. HEX LOCATION(000034DE) IN CSECT(I7A28 ) LENGTH (2) 
> RODRESS. HEX LOCATION (O00034F6) IN CSECT(I7A28 ) LENGTH (2) 
s ADDRESS. HEX LOCATION (OOOO34FE) IN CSECT(I7A28 ) LENGTH (2) 
> ADDRESS. HEX LOCATION (00003502) IN CSECT(I7A28 ) LENGTH (2) 
sR DDRESS. HEX LOCATION (00003532) IN CSECT (I7A28 ) LENGTH (2) 
SABDRESS. HEX LOCATION (0000350A) IN CSECT(I7A28 ) LENGTH (2) 
SADDRESS- HEX LOCATION (00003518) IN CSECT(I7A28 ) LENGTH(1) 
sABBRESS. HEX LOCATION (00003526) IN CSECT(I7A28 ) LENGTH (2) 
SABDRESS, HEX LOCATION (0000356E) IN CSECT(I7A28 ) LENGTH (2) 
SRBBPEES PH $OC*BEGH (O90R57R} AY SERETCEIAZ® poh FENCEE CD 
2636 2640 2667 2670 3303 3309 3554 
ae ae re aad tet hae aeleg IN CSECT(I7A28 ) LENGTH (2) 

CSECT. START(00002500) LENGTH(4784) ESDID(1) 

ADDRESS. HEX LOCATION (0000365A) IN CSECT(I7A28 ) LENGTH (40) 
32 DDRESS. HEX LOCATION (00003204) IN CSECT(I7A28 ) LENGTH(2) 
2643 3307 3558 

ABSOLUTE. HEX VALUE (00000020) 

a ADDRESS. HEX LOCATION (00003586) IN CSECT(I7A28 ) LENGTH(2) 
sORSOLULE. HEX VALUE (0000002C) 
“ABSOLUTE. HEX VALUE (00000027) 

ADDRESS. HEX LOCATION (000027A0) IN CSECT (I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (000027B2) IN CSECT(I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION(000027CC) IN CSECT(I7A28 ) LENGTH(2) 

RODRESS. HEX LOCATION (000027E6) IN CSECT(I7A28 ) LFNGTH(2) 

AODRESS. HEX LOCATION(OOO0027FE) IN CSECT (I7A28 ) LENGTH (2) 

RODRESS. HEX LOCATION (00002816) IN CSECT(I7A28 ) LENGTH(2) 

RBDRESS. HEX LOCATION (00002830) IN CSECT(I7A28 ) LENGTH(2) 

ADDRESS. HEX LOCATION(0000284A) IN CSECT (I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (00002864) IN CSECT(I7A28 ) LENGTH(2) 

RBDRESS. HEX LOCATION (0000287C) IN CSECT(I7A28 ) LENGTH(2) 

RDORESS. HEX LOCATION(00002880) IN CSECT(I7A28  ) LENGTH (2) 

ADDRESS HEX LOCATION (0000289A) IN CSECT(I7A28 ) LENGTH(2) 

RDDRESS. HEX LOCATION (0000289E) IN CSECT (I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (000028B6) IN CSECT(I7A28 ) LENGTH (2) 

2 BO RESS- HEX LOCATION (000028D0) IN CSECT(I7A28 ) LENGTH(2) 

ADDRESS. HEX LOCATION (000028E8) IN CSECT (I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (00002900) IN CSECT(I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (00002904) IN CSECT(I7A28 ) LENGTH(2) 

7BORESS. HEX LOCATION (00002908) IN CSECT(I7A28  ) LENGTH(2) 

ABDRESS. HEX LOCATION (0000290C) IN CSECT(I7A28 ) LENGTH (2) 

OSRESS. HEX LOCATION (00002910) IN CSECT(I7A28 ) LENGTH (2) 

a RESS. HEX LOCATION (00002914) IN CSECT(I7A28 ) LENGTH(2) 

ADDRESS. HEX LOCATION (0000292C) IN CSECT(I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (00002930) IN CSECT(I7A28 ) LENGTH (2) 

aeoRESS. HEX LOCATION (0000294A) IN CSECT(I7A28 ) LENGTH (2) 

ADDRESS. HEX LOCATION (0000294F) IN CSECT(I7A28 ) LENGTH(2) 
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NO0037 
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ADDRESS. 
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ADDRESS. 
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REFERENCES 


LOCATION (00002952) 
LOCATION (00002956) 
LOCATION (00002968) 
LOCATION (0000296C) 
LOCATION (00002970) 
LOCATION (00002988) 
LOCATION (000029A2) 
LOCATION (000029B4) 
LOCATION (000029CE) 
LOCATION (000029D2) 
LOCATION (000029E4) 
LOCATION (00002958) 
LOCATION (000029EC) 
LOCATION (00002A04) 
LOCATION (00002A1C) 
LOCATION (00002A20) 
LOCATION (00002A24) 
LOCATION (00002A28) 
LOCATION (00002A2C) 
LOCATION (00002A3E) 
LOCATION (00002A42) 
LOCATION (00002A46) 
LOCATION (00002A5E) 
LOCATION (00002A76) 
LOCATION (00002A7A) 
LOCATION (00002492) 
LOCATION (00002AAC) 
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1446 
1458 
1461 
1473 
1476 
1488 
1491 
1494 
1506 
1509 
1521 
1533 
1536 
1548 
1551 
1554 
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1584 
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1599 
1611 
16 23 
1635 
1638 
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NAME 

NO0082 
N00083 
nNo00084 
N00085 
N00086 
N00087 
N00088 
NO0089 
N00090 
N00091 
n00092 
N00093 
NO0094 
N00095 
N00096 
NO0097 
N00098 
N00099 
N00100 
NOOQ 101 
N00102 
N00103 
N00104 
NO00105 
N00106 
NO00107 
N00108 
N00109 
N00110 
NOO111 
N00112 
N00113 
NOO114 
NO0115 
N00 116 
N00117 
N00118 
N00119 
N00120 
N00121 
N00122 
N00123 
NOO0124 
N00125 
N00126 
NO00127 
N00128 
N00129 
N00130 
N00131 
N00132 
N00 133 
N00134 
N00135 
N00 136 
N00137 


ATTRIBUTES AND 


ADDRESS. HEX 
558 1417 
ADDRESS. HEX 
561 

ADDRESS. HEX 
564 1447 


ADDRESS. HEX 
567 

ADDRESS. HEX 
570 1462 
ADDRESS. HEX 
573 

ADDRESS. HEX 
576 1477 
ADDRESS. HEX 
579 1405 
ADDRESS. HEX 
582 

ADDRESS. HEX 
585 1495 
ADDRESS. HEX 
588 

ADDRESS. HEX 
591 

ADDRESS. HEX 
594 522 
ADDRESS. HEX 
597 

ADDRESS. HEX 
600 1537 
ADDRESS. HEX 
603 1510 
ADDRESS. HEX 
606 

ADDRESS. HEX 
609 1555 
ADDRESS. HEX 
612 

ADDRESS. HEX 
615 1570 
ADDRESS. HEX 
618 1393 
ADDRESS. HEX 
621 

ADDRESS. HEX 
624 

ADDRESS. HEX 
627 

ADDRESS. HEX 
630 

ADDRESS. HEX 
633 1624 
ADDRESS. 

636 

ADDRESS. HEX 
639 1639 
ADDRESS. HEX 
642 1612 
ADDRESS. HEX 
645 

ADDRESS. HEX 
648 

ADDRESS. HEX 
651 1669 
ADDRESS. HEX 
654 1657 
ADDRESS. HEX 
657 

ADDRESS. HEX 
660 1687 
ADDRESS. HEX 
663 1600 
ADDRESS. HEX 
666 

ADDRESS. HEX 
669 

ADDRESS. HEX 
672 

ADDRESS. HEX 
675 1729 
ADDRESS. HEX 
678 1717 
ADDRESS. HEX 
681 1705 
ADDRESS. HEX 
684 

ADDRESS. HEX 
687 

ADDRESS. HEX 
690 

ADDRESS. HEX 
693 

ADDRESS. HEX 
696 1786 
ADDRESS. HEX 
699 1774 
ADDRESS. HEX 
702 1762 
ADDRESS. HEX 
705 1750 
ADDRESS. HEX 
708 1588 
ADDRESS. HEX 
711 

ADDRESS. HEX 
714 

ADDRESS. _ HEX 
717 ~—=-1825 
ADDRESS. HEX 
720 1813 
ADDRESS. HEX 


REFERENCES 

LOCATION (00002C10) 
LOCATION (00002C22) 
LOCATION (00002C26) 
LOCATION (00002C40) 
LOCATION (00002C44) 
LOCATION (00002C5C) 
LOCATION (00002C60) 
LOCATION (00002C64) 
LOCATION (00002C7C) 
LOCATION (00002C80) 
LOCATION (00002C9A) 
LOCATION (00002CAC) 
LOCATION (00002CB0) 
LOCATION (00002CC2) 
LOCATION (00002CC6) 
LOCATION (00002CCA) 
LOCATION (00002CE4) 
LOCATION (00002CE8) 
LOCATION (00002D00) 
LOCATION (00002D04) 
LOCATION (00002D08) 
LOCATION (00002D20) 
LOCATION (00002D3A) 
LOCATION (00002D54) 
LOCATION (00002D6C) 
LOCATION (00002D70) 
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LOCATION (00002D8E) 
LOCATION (00002D92) 
LOCATION (00002DAA) 
LOCATION (00002DC4) 
LOCATION (00002DC8) 
LOCATION (00002DCC) 
LOCATION (00002DE6) 
LOCATION (00002DEA) 
LOCATION (00002DEE) 
LOCATION (00002506) 
LOCATION (00002E1E) 
LOCATION (00002E36) 
LOCATION (00002E3A) 
LOCATION (00002E3E) 
LOCATION (00002E42) 
LOCATION (00002E5C) 
LOCATION (00002E74) 
LOCATION (00002E8C) 
LOCATION (00002EA6) 
LOCATION (00002EAA) 
LOCATION (00002EAE) 
LOCATION (00002EB2) 
LOCATION (00002EB6) 
LOCATION (00002EBA) 
LOCATION (00002ED2) 
LOCATION (00002EEC) 
LOCATION (00002EFO) 
LOCATION (00002EF4) 
LOCATION (00002F0C) 
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LOCATION (00002F40) 
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